home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / findyo1a / finddoga.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-09-22  |  3.0 KB  |  97 lines
  1. VERSION 5.00
  2. Begin VB.Form frmDogYrs 
  3.    Caption         =   "See How Old You Are In Dog Years"
  4.    ClientHeight    =   3645
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   5295
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3645
  10.    ScaleWidth      =   5295
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton cmdDogYrs 
  13.       Caption         =   "Find Out Age"
  14.       Height          =   495
  15.       Left            =   2040
  16.       TabIndex        =   2
  17.       Top             =   1320
  18.       Width           =   1215
  19.    End
  20.    Begin VB.TextBox txtAge 
  21.       BeginProperty Font 
  22.          Name            =   "MS Sans Serif"
  23.          Size            =   13.5
  24.          Charset         =   0
  25.          Weight          =   400
  26.          Underline       =   0   'False
  27.          Italic          =   0   'False
  28.          Strikethrough   =   0   'False
  29.       EndProperty
  30.       Height          =   495
  31.       Left            =   2880
  32.       TabIndex        =   1
  33.       Top             =   360
  34.       Width           =   975
  35.    End
  36.    Begin VB.Label lblAge 
  37.       BeginProperty Font 
  38.          Name            =   "MS Sans Serif"
  39.          Size            =   13.5
  40.          Charset         =   0
  41.          Weight          =   400
  42.          Underline       =   0   'False
  43.          Italic          =   0   'False
  44.          Strikethrough   =   0   'False
  45.       EndProperty
  46.       Height          =   495
  47.       Left            =   0
  48.       TabIndex        =   4
  49.       Top             =   2520
  50.       Width           =   5175
  51.    End
  52.    Begin VB.Label Label1 
  53.       Alignment       =   1  'Right Justify
  54.       Caption         =   "In dog years you are only:"
  55.       BeginProperty Font 
  56.          Name            =   "MS Sans Serif"
  57.          Size            =   13.5
  58.          Charset         =   0
  59.          Weight          =   400
  60.          Underline       =   0   'False
  61.          Italic          =   0   'False
  62.          Strikethrough   =   0   'False
  63.       EndProperty
  64.       Height          =   495
  65.       Left            =   0
  66.       TabIndex        =   3
  67.       Top             =   1920
  68.       Width           =   3375
  69.    End
  70.    Begin VB.Label lblGetAge 
  71.       Alignment       =   1  'Right Justify
  72.       Caption         =   "How old are you?"
  73.       BeginProperty Font 
  74.          Name            =   "MS Sans Serif"
  75.          Size            =   13.5
  76.          Charset         =   0
  77.          Weight          =   400
  78.          Underline       =   0   'False
  79.          Italic          =   0   'False
  80.          Strikethrough   =   0   'False
  81.       EndProperty
  82.       Height          =   495
  83.       Left            =   240
  84.       TabIndex        =   0
  85.       Top             =   360
  86.       Width           =   2415
  87.    End
  88. Attribute VB_Name = "frmDogYrs"
  89. Attribute VB_GlobalNameSpace = False
  90. Attribute VB_Creatable = False
  91. Attribute VB_PredeclaredId = True
  92. Attribute VB_Exposed = False
  93. Private Sub cmdDogYrs_Click()
  94.   ' Divide age by seven
  95.   lblAge.Caption = txtAge.Text / 7
  96. End Sub
  97.